Esempio di ActiveX Automation (Windows)
Private Sub Form_Load()
'----------------------------------------------
' Codice di esempio per accedere a FileMaker Pro 7
' in Visual Basic.
'
' La libreria "FileMaker Pro 7.0 Type Library" deve essere selezionata
' e disponibile nel progetto e nei riferimenti di Visual Basic.
'----------------------------------------------
'----------------------------------------------
' Dichiarazione degli oggetti e avvio di FileMaker
'----------------------------------------------
' Dichiara variabili oggetti
Dim FMApp As FMPro70Lib.Application
Dim FMDocs As FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document
' Avvia FileMaker
Set FMApp = CreateObject("FMPRO.Application")
' Imposta l'oggetto Documents
Set FMDocs = FMApp.Documents
' Rendi visibile FileMaker (durante l'avvio da Automation,
' FileMaker resta nascosto per impostazione predefinita).
FMApp.Visible = True
'----------------------------------------------
' Query documenti aperti
'----------------------------------------------
'Controlla il conteggio dei documenti aperti
If FMDocs.Count = 0 Then
Debug.Print "Nessun documento aperto"
Else
Debug.Print "Il conteggio dei documenti aperti è:"; FMDocs.Count
End If
'--------------------------------------------------
' Apertura di un database di FileMaker ed esecuzione di uno script
'--------------------------------------------------
' Note: Deve essere disponibile un file FileMaker "c:\testing.fp7"
' con uno script chiamato "Primo script" perché quanto segue
' funzioni.
Dim myOpenFile As Object ' nota: può anche essere
dichiarato come
FMPro70Lib.Document
Set myOpenFile = FMDocs.Open("c:\testing.fp7", "")
myOpenFile.DoFMScript ("Primo script")
'--------------------------------------------------
' Query documento attivo
'--------------------------------------------------
Set FMActiveDoc = FMDocs.Active
' Visualizza il nome del documento attivo
Debug.Print "Il file attivo è "; FMActiveDoc.FullName
'--------------------------------------------------
' Enumerazione e chiusura di documenti
'--------------------------------------------------
Dim TempToc As Object
If FMDocs.Count > 0 Then
For Each TempDoc In FMDocs
Debug.Print "Per chiudere i documenti: "; TempDoc.FullName
TempDoc.Close
Set TempDoc = Nothing
Next
End If
'----------------------------------------------
' Pulizia e uscita
'----------------------------------------------
Set FMDocs = Nothing
Set FMActiveDoc = Nothing
Set myOpenFile = Nothing
' Esci da FileMaker e rilascia le variabili
' (Nota: impostare sempre la variabile dell'applicazione su Nothing dopo l'uscita).
FMApp.Quit
Set FMApp = Nothing
End Sub
Argomenti correlati
 |
|